home *** CD-ROM | disk | FTP | other *** search
/ infoROM 17,000 Product Descriptions for Business / infoROM Product Descriptions for Business - ESX Interactive.ISO / argdemos / objdemo / toolkit.exe / ACAD.LSP next >
Encoding:
Text File  |  1992-12-18  |  785 b   |  44 lines
  1. (defun S::STARTUP ()
  2.     (setvar "CMDECHO" 0)
  3.     (if (null C:GENREP) (xload "GENREP"))
  4.     (if (null C:DEF_VAR) 
  5.         (xload "XDC12")
  6.         (t_init)
  7.     )
  8.     (princ "\nLoading Default...")
  9.     (load "default")
  10.     (princ "loaded.")
  11.     (princ "\nLoading MESSAGE FILE...")
  12.     (load "mes.lsp")
  13.     (princ "loaded.")
  14.     (load "acadr12.lsp")
  15. )
  16.  
  17. (defun tims (/ a)
  18.     (if (null C:GENREP) (xload "GENREP"))
  19.     (if (null C:DEF_VAR) (xload "XDC12"))
  20.     (setq a (def_var "" "" ""))
  21. )
  22.  
  23. (defun c:tims ()
  24.     (tims)
  25. )
  26.  
  27. (defun c:tim  ()
  28.     (tims)
  29. )
  30.  
  31. (defun tim ()
  32.     (tims)
  33. )
  34.  
  35. (defun ai_rootmenus ()
  36.   (setq T_MENU 0)
  37.   (menucmd "S=X")
  38.   (menucmd "S=S")
  39.   (menucmd "T2=TABLET2")
  40.   (menucmd "T3=TABLET3")
  41.   (menucmd "T4=TABLET4")
  42.   (princ)
  43. )
  44.